(Fsingle_key_description): Allow strings as keys.

diff --git a/src/keymap.c b/src/keymap.c
index 0bd1eb6ac9853c9c70945a303224e0baeec19c6e..4a928848694ca2bbaacb3f50ddbfdf43c5a3be7e 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1458,8 +1458,12 @@ Control characters turn into C-whatever, etc.")
     case Lisp_Symbol:          /* Function key or event-symbol */
       return Fsymbol_name (key);
 
+      /* Buffer names in the menubar can trigger this.  */
+    case Lisp_String:
+      return Fcopy_sequence (key);
+
     default:
-      error ("KEY must be an integer, cons, or symbol.");
+      error ("KEY must be an integer, cons, symbol, or string.");
     }
 }